home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr11 / pcv05n10.zip / RECYCL.ZIP / GLOBAL.BAS < prev    next >
BASIC Source File  |  1992-03-21  |  1KB  |  32 lines
  1. Type PointAPI
  2.         X As Integer
  3.         Y As Integer
  4. End Type
  5.  
  6.  
  7. Type Msg
  8.         hWnd As Integer
  9.         Message As Integer
  10.         wParam As Integer
  11.         lParam As Long
  12.         Time As Long
  13.         PT As PointAPI
  14. End Type
  15. Declare Function DragQueryFile Lib "SHELL" (ByVal hDrop As Integer, ByVal indexFilename As Integer, ByVal lpFileName As String, ByVal Buffsize As Integer) As Integer
  16. Declare Sub DragAcceptFiles Lib "SHELL" (ByVal hWnd As Integer, ByVal Accept As Integer)
  17. Declare Sub dragfinish Lib "SHELL" (ByVal hWnd As Integer)
  18. Declare Function PeekMessage Lib "USER" (lpMsg As Msg, ByVal hWnd As Integer, ByVal wMsgFilterMin As Integer, ByVal wMsgFilterMax As Integer, ByVal wRemoveMsg As Integer) As Integer
  19. Declare Function SetFileHidden Lib "DISKSTAT.DLL" (ByVal fname As String, ByVal plusmin As String) As Integer
  20. '*** new addition
  21. Declare Function IsFileHidden Lib "diskstat.dll" (ByVal fname As String) As Integer
  22. Declare Function FindFile Lib "diskstat.dll" (ByVal fname As String, ByVal searchpath As String, ByVal fullname As String) As Integer
  23. '*** new addition
  24. Global Const True = -1
  25. Global Const False = 0
  26. Global Const IDNO = 7
  27. Global Handle As Integer
  28. Global NewMessage As Msg
  29. Global NameOfFile As String * 129
  30. Global TotSize As Long
  31.  
  32.